home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 34 / Amiga Format CD34 (1998-11-20)(Future Publishing)(GB)[!][Christmas issue].iso / -seriously_amiga- / programming / basic / blitzc2p / game / makebackgrounds.ascii next >
Text File  |  1998-10-01  |  493b  |  22 lines

  1. WBStartup
  2.  
  3. DEFTYPE.l
  4.  
  5. ;Convert backdrop from planar 64 colours to chunky 256 colours
  6. InitPalette 0,64
  7. BitMap 0,320,1600,8
  8. InitBank 0,320*1600,$10000
  9. Screen 0,0,0,320,1600,8,0,"",0,0,0
  10. VWait 50
  11. LoadBitMap 0,"Work2:BackgroundsStore/Default.IFF",0
  12. Use Palette 0
  13. SavePalette 0,"Work2:Rupture/Backgrounds/Default.Palette"
  14. For y.l=0 To 1600-1
  15.   For x.l=0 To 320-1
  16.     NPokeB Bank(0)+(y*320)+x,Point(x,y) AND $FF
  17.   Next x
  18. Next y
  19. BSave "Work2:Rupture/Backgrounds/Default.Chunky",Bank(0),320*1600
  20. End
  21.  
  22.